﻿Public Class usrTotales

    Public Sub inicializa(ByVal datos As InterfazNegocio.EstadResultado, _
                          ByVal TotalPreguntas As Integer, _
                          ByVal TotalPreguntasContestadas As Integer)

        Me.Label1.Content = "Total de ejercicios: " & TotalPreguntas & _
            " Total de ejercicios realizados: " & TotalPreguntasContestadas


        Dim l1 As DataVisualization.Charting.PieSeries
        l1 = CType(Me.mcChart1.Series(0), DataVisualization.Charting.PieSeries)
        l1.ItemsSource = datos.PorcentajeAciertos

        Dim l2 As DataVisualization.Charting.PieSeries
        l2 = CType(Me.mcChart2.Series(0), DataVisualization.Charting.PieSeries)
        l2.ItemsSource = datos.PrimeraRondaAcertada
    End Sub

End Class
